#!
$tel = "86+451+86416225";
if($tel=~/([0-9]+)\+([0-9]+)\+([0-9]+)/)
{
	print "country: 0$1\n";
	print "city: 0$2\n";
	print "number: $3\n";
}
$_='Lipman/NNP contributed/VBD to/TO this/DT ./.';
@words=/([^\/\s]*)\/[^\/\s]*/g;
print join " ", @words;
